home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / ushift.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-07-07  |  361 b   |  24 lines
  1. #define TABS 8
  2. ushift_(l)
  3. char *l;
  4. {
  5. static    int    i,    j,    k;
  6. static    char    m[132],    *a,    *b;
  7.     a= m;    b= l;
  8.     for (i=0; i<80; i++) {
  9.         if (*b != '\t') { *a++= *b++;    }
  10.         else {
  11.             for (j= i % TABS; j < TABS; j++) *a++ = ' ';
  12.             b++;
  13.         }
  14.     }
  15.     a= m;    b= l;
  16.     for (i= 0; i<80; i++) {
  17.         if (*a >= 'A' && *a <= 'Z') {
  18.             *b++= *a++ + ('a' - 'A');
  19.         }
  20.         else {    *b++ = *a++;    }
  21.     }
  22. }
  23.  
  24.